Private Sub btn_Click()

    Dim i As Long, j As Long
    Dim ӽ As Variant

    With lstû
        
        For i = 0 To .ListCount - 2
            
            For j = i + 1 To .ListCount - 1
                
                If .List(i) < .List(j) Then
                    ӽ = .List(i)
                    .List(i) = .List(j)
                    .List(j) = ӽ
                End If
            
            Next j
        
        Next i
    
    End With

End Sub